home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / Applications / directtex Pro 2.0 / DirectTeX.5 / Installer-Files / Tools-MPW / Tools-MPW folder / InitFormats < prev    next >
Encoding:
Text File  |  1995-03-27  |  1.4 KB  |  62 lines  |  [TEXT/MPS ]
  1. # This script file is part of the DirectTeX :-) package.
  2. #
  3. # (c) 1991-94 by Wilfried Ricken
  4. #                Hagenaustraße 41
  5. #                45138 Essen
  6. #                Germany
  7.  
  8. Begin
  9.     Set Echo 0
  10.     Set Exit 0
  11.  
  12.     Set CurrentDir `Directory`
  13.     Exit 1 If "{dt_TempFiles}" == ""
  14.     Directory "{dt_TempFiles}" ∑ Dev:Null
  15.     Exit 1 If {Status} != 0
  16.  
  17.     If {#} > 0
  18.         Echo -n > "{dt_TempFiles}InitFormats"
  19.  
  20.         For i in {"Parameters"}
  21.             Set ScriptFound 0
  22.  
  23.             For j in `Files "{dt_ConfigFiles}Initialize-MPW:"`
  24.                 If "`GetFirstLine "{dt_ConfigFiles}Initialize-MPW:{j}"`" =~ /#[ ∂t]+{i}/
  25.                     Quote "{j}" >> "{dt_TempFiles}InitFormats"
  26.                     Set ScriptFound 1
  27.                     Break
  28.                 End
  29.             End
  30.  
  31.             If {ScriptFound} == 0
  32.                 Alert "Cannot find a script file for ∂"{i}∂"."
  33.             End
  34.         End
  35.     Else
  36.         Files -q -s "{dt_ConfigFiles}Initialize-MPW:" | GetListItem -c -r 10 -m "Please select a script file:" > "{dt_TempFiles}InitFormats"
  37.     End
  38.  
  39.     If "`Catenate "{dt_TempFiles}InitFormats"`" == ""
  40.         Delete `Files -s "{dt_TempFiles}"`
  41.         Directory "{CurrentDir}"
  42.         Exit 0
  43.     End
  44.  
  45.     BeginSession
  46.     Set dt_MFLogFiles ''
  47.     Set dt_TeXLogFiles ''
  48.  
  49.     For i in `Catenate "{dt_TempFiles}InitFormats"`
  50.         Delete `Files -s "{dt_TempFiles}"`
  51.         Echo "#∂n# Initializing: “{i}”∂n#" >> "{dt_SessionLog}"
  52.         "{dt_ConfigFiles}Initialize-MPW:{i}" ≥≥ "{dt_SessionLog}"
  53.     End
  54.  
  55.     EndSession
  56.     TeXMenu -formats
  57.  
  58.     Delete `Files -s "{dt_TempFiles}"`
  59.     Directory "{CurrentDir}"
  60.     Exit 0
  61. End ∑ Dev:Null
  62.